home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 4 / BBS in a Box - Macintosh - Volume IV (January 1992) (BBS in a Box).iso / Files / Hyper / G / GROUP1.cpt / GROUP1 Folder / Group 1 Analysis / card_17011.txt < prev    next >
Encoding:
Text File  |  1991-08-08  |  8.2 KB  |  406 lines
  1. -- card: 17011 from stack: in
  2. -- bmap block id: 17327
  3. -- flags: 0000
  4. -- background id: 5931
  5. -- name: nolead
  6. ----- HyperTalk script -----
  7. on opencard
  8.  
  9.   global time1
  10.   global Silver
  11.   global Mercury
  12.   global Lead
  13.   global key,wasHere
  14.   if wasHere = 1 then exit opencard
  15.   put empty into bkgnd field "info"
  16.   hide card field "info2"
  17.   put empty into card field "info1"
  18.   show card field "info1"
  19.   put "Click Here to" into line 2 of card field "info1"
  20.   put "Continue When Ready" into line 3 of card field "info1"
  21.   show card button "info1"
  22.   set the highlight of card button "info1" to true
  23. end opencard
  24.  
  25. on check
  26.   global Silver
  27.   global Mercury
  28.   global Lead
  29.   global reagent
  30.   global route
  31.   global score
  32.   if reagent = "Ammonia"  and Mercury = "Mercury" then
  33.     go to card "yesMercury"
  34.     put "Result of Adding Ammonia " into line 1 of bkgnd field "info"
  35.     put "Formation of Grey Precipitate" into line 2 of bkgnd field "info"
  36.   end if
  37.  
  38.   if reagent = "Ammonia"  and Mercury <> "Mercury" then
  39.     go to  card "noMercury"
  40.     put "Result of Adding Ammonia " into line 1 of bkgnd field "info"
  41.     put "No evidence of precipitate" into line 2 of bkgnd field "info"
  42.   end if
  43.  
  44.   if  reagent<> "Ammonia" then
  45.     put score + 10 into score
  46.  
  47.     put empty into bkgnd field "info"
  48.     put "Please Try Again" into line 1 of bkgnd field "info"
  49.  
  50.     put "or Examine Flow Chart" into line 2 of bkgnd field "info"
  51.     repeat 2
  52.       set the highlight of card button "flow Chart" to true
  53.       wait 1 second
  54.       set the highlight of card button "flow Chart" to false
  55.       wait 1 second
  56.     end repeat
  57.  
  58.   end if
  59.  
  60. end check
  61.  
  62.  
  63.  
  64.  
  65. -- part 4 (field)
  66. -- low flags: 81
  67. -- high flags: 0004
  68. -- rect: left=0 top=20 right=178 bottom=387
  69. -- title width / last selected line: 0
  70. -- icon id / first selected line: 0 / 0
  71. -- text alignment: 1
  72. -- font id: 21
  73. -- text size: 24
  74. -- style flags: 0
  75. -- line height: 32
  76. -- part name: note
  77.  
  78.  
  79. -- part 11 (button)
  80. -- low flags: 00
  81. -- high flags: 2000
  82. -- rect: left=3 top=44 right=106 bottom=54
  83. -- title width / last selected line: 0
  84. -- icon id / first selected line: 0 / 0
  85. -- text alignment: 1
  86. -- font id: 0
  87. -- text size: 12
  88. -- style flags: 0
  89. -- line height: 16
  90. -- part name: Hydrochloric Acid
  91. ----- HyperTalk script -----
  92. on mouseUp
  93.   global route
  94.   global reagent
  95.   global lastClick
  96.  
  97.   if the seconds - lastClick < 4 then exit mouseup
  98.   else put the seconds into lastClick
  99.   get the short name of me
  100.   put it into reagent
  101.   check
  102.  
  103.  
  104. end mouseUp
  105.  
  106.  
  107.  
  108. -- part 12 (button)
  109. -- low flags: 00
  110. -- high flags: 2000
  111. -- rect: left=64 top=44 right=106 bottom=115
  112. -- title width / last selected line: 0
  113. -- icon id / first selected line: 0 / 0
  114. -- text alignment: 1
  115. -- font id: 0
  116. -- text size: 12
  117. -- style flags: 0
  118. -- line height: 16
  119. -- part name: Nitric Acid
  120. ----- HyperTalk script -----
  121. on mouseUp
  122.  
  123.   global reagent
  124.  
  125.   global lastClick
  126.  
  127.   if the seconds - lastClick < 4 then exit mouseup
  128.   else put the seconds into lastClick
  129.   get the short name of me
  130.   put it into reagent
  131.   check
  132.  
  133.  
  134. end mouseUp
  135.  
  136.  
  137.  
  138. -- part 13 (button)
  139. -- low flags: 00
  140. -- high flags: 2000
  141. -- rect: left=125 top=44 right=106 bottom=176
  142. -- title width / last selected line: 0
  143. -- icon id / first selected line: 0 / 0
  144. -- text alignment: 1
  145. -- font id: 0
  146. -- text size: 12
  147. -- style flags: 0
  148. -- line height: 16
  149. -- part name: Distilled Water
  150. ----- HyperTalk script -----
  151. on mouseUp
  152.  
  153.   global reagent
  154.   global lastClick
  155.  
  156.   if the seconds - lastClick < 4 then exit mouseup
  157.   else put the seconds into lastClick
  158.   get the short name of me
  159.   put it into reagent
  160.   check
  161.  
  162.  
  163. end mouseUp
  164.  
  165.  
  166.  
  167. -- part 14 (button)
  168. -- low flags: 00
  169. -- high flags: 2000
  170. -- rect: left=184 top=44 right=106 bottom=235
  171. -- title width / last selected line: 0
  172. -- icon id / first selected line: 0 / 0
  173. -- text alignment: 1
  174. -- font id: 0
  175. -- text size: 12
  176. -- style flags: 0
  177. -- line height: 16
  178. -- part name: Potassium Dichromate
  179. ----- HyperTalk script -----
  180. on mouseUp
  181.   global route
  182.   global reagent
  183.   global lastClick
  184.  
  185.   if the seconds - lastClick < 4 then exit mouseup
  186.   else put the seconds into lastClick
  187.   get the short name of me
  188.   put it into reagent
  189.   check
  190.  
  191.  
  192. end mouseUp
  193.  
  194.  
  195.  
  196. -- part 15 (button)
  197. -- low flags: 00
  198. -- high flags: 2000
  199. -- rect: left=246 top=44 right=106 bottom=297
  200. -- title width / last selected line: 0
  201. -- icon id / first selected line: 0 / 0
  202. -- text alignment: 1
  203. -- font id: 0
  204. -- text size: 12
  205. -- style flags: 0
  206. -- line height: 16
  207. -- part name: Ammonia
  208. ----- HyperTalk script -----
  209. on mouseUp
  210.   global route
  211.   global reagent
  212.   global lastClick
  213.  
  214.   if the seconds - lastClick < 4 then exit mouseup
  215.   else put the seconds into lastClick
  216.   get the short name of me
  217.   put it into reagent
  218.   check
  219.  
  220.  
  221. end mouseUp
  222.  
  223.  
  224.  
  225. -- part 22 (field)
  226. -- low flags: 81
  227. -- high flags: 0000
  228. -- rect: left=389 top=212 right=283 bottom=507
  229. -- title width / last selected line: 0
  230. -- icon id / first selected line: 0 / 0
  231. -- text alignment: 0
  232. -- font id: 3
  233. -- text size: 12
  234. -- style flags: 0
  235. -- line height: 16
  236. -- part name: hold
  237.  
  238.  
  239. -- part 29 (field)
  240. -- low flags: 81
  241. -- high flags: 0001
  242. -- rect: left=161 top=212 right=319 bottom=195
  243. -- title width / last selected line: 0
  244. -- icon id / first selected line: 0 / 0
  245. -- text alignment: 0
  246. -- font id: 3
  247. -- text size: 12
  248. -- style flags: 0
  249. -- line height: 16
  250. -- part name: f
  251.  
  252.  
  253. -- part 36 (button)
  254. -- low flags: 00
  255. -- high flags: 8002
  256. -- rect: left=434 top=205 right=254 bottom=509
  257. -- title width / last selected line: 0
  258. -- icon id / first selected line: 0 / 0
  259. -- text alignment: 1
  260. -- font id: 0
  261. -- text size: 12
  262. -- style flags: 0
  263. -- line height: 16
  264. -- part name: Flow Chart
  265. ----- HyperTalk script -----
  266. on mouseUp
  267.   global wasHere
  268.   put 1 into "washere"
  269.   push card
  270.   go to card id 7591
  271.   put 1 into zz
  272.   repeat until zz = 4
  273.     set the highlight of card button step4 to true
  274.     wait 30
  275.     set the highlight of card button step4 to false
  276.     wait 30
  277.     put zz+1 into zz
  278.   end repeat
  279.  
  280. end mouseUp
  281.  
  282.  
  283.  
  284. -- part 38 (field)
  285. -- low flags: 81
  286. -- high flags: 0004
  287. -- rect: left=1 top=112 right=205 bottom=390
  288. -- title width / last selected line: 0
  289. -- icon id / first selected line: 0 / 0
  290. -- text alignment: 1
  291. -- font id: 3
  292. -- text size: 14
  293. -- style flags: 256
  294. -- line height: 18
  295. -- part name: Message
  296. ----- HyperTalk script -----
  297. on mouseup
  298.   hide card field "message"
  299. end mouseup
  300.  
  301.  
  302.  
  303. -- part 40 (field)
  304. -- low flags: 81
  305. -- high flags: 0004
  306. -- rect: left=0 top=7 right=206 bottom=416
  307. -- title width / last selected line: 0
  308. -- icon id / first selected line: 0 / 0
  309. -- text alignment: 1
  310. -- font id: 21
  311. -- text size: 18
  312. -- style flags: 0
  313. -- line height: 24
  314. -- part name: info
  315.  
  316.  
  317. -- part 41 (button)
  318. -- low flags: 00
  319. -- high flags: 0000
  320. -- rect: left=0 top=115 right=172 bottom=383
  321. -- title width / last selected line: 0
  322. -- icon id / first selected line: 0 / 0
  323. -- text alignment: 1
  324. -- font id: 0
  325. -- text size: 12
  326. -- style flags: 0
  327. -- line height: 16
  328. -- part name: cv2
  329.  
  330.  
  331. -- part 42 (field)
  332. -- low flags: 01
  333. -- high flags: 0004
  334. -- rect: left=2 top=184 right=296 bottom=159
  335. -- title width / last selected line: 0
  336. -- icon id / first selected line: 0 / 0
  337. -- text alignment: 1
  338. -- font id: 21
  339. -- text size: 18
  340. -- style flags: 0
  341. -- line height: 24
  342. -- part name: info1
  343.  
  344.  
  345. -- part 43 (button)
  346. -- low flags: 00
  347. -- high flags: 4000
  348. -- rect: left=0 top=183 right=297 bottom=157
  349. -- title width / last selected line: 0
  350. -- icon id / first selected line: 0 / 0
  351. -- text alignment: 1
  352. -- font id: 0
  353. -- text size: 12
  354. -- style flags: 0
  355. -- line height: 16
  356. -- part name: info1
  357. ----- HyperTalk script -----
  358. on mouseUp
  359.   set the highlight of card button "info1" to false
  360.   Hide card button "info1"
  361.   Hide card field "info1"
  362.   show card field "info2"
  363.   put "Ready for Next Reagent" into bkgnd field "info"
  364. end mouseUp
  365.  
  366.  
  367.  
  368. -- part 44 (field)
  369. -- low flags: 81
  370. -- high flags: 0001
  371. -- rect: left=238 top=193 right=330 bottom=394
  372. -- title width / last selected line: 0
  373. -- icon id / first selected line: 0 / 0
  374. -- text alignment: 0
  375. -- font id: 3
  376. -- text size: 12
  377. -- style flags: 0
  378. -- line height: 16
  379. -- part name: info2
  380.  
  381.  
  382. -- part contents for card part 4
  383. ----- text -----
  384. Please Wait While
  385. Computer Selects
  386. an Unknown for You
  387. to Analyze
  388.  
  389. -- part contents for card part 38
  390. ----- text -----
  391. Check Flow Chart
  392.  
  393. Centrifuge not used 
  394.  
  395. at this time
  396.  
  397. -- part contents for card part 42
  398. ----- text -----
  399.  
  400. Click Here to
  401. Continue When Ready
  402.  
  403. -- part contents for background part 8
  404. ----- text -----
  405. Result of Adding Potassium Dichromate
  406. No evidence of precipitate